home *** CD-ROM | disk | FTP | other *** search
/ CD World Haziran 1997 / CD World Haziran 1997.iso / Explorer Yardimcilari / PiXCL Tools / Toolbar1.px_ / Toolbar1.px
Encoding:
Text File  |  1996-05-27  |  9.1 KB  |  344 lines
  1.     UseCoordinates(PIXEL)
  2.     UseBackGround(TRANSPARENT,192,192,192)
  3.     DrawBackGround
  4.     WinGetActive(Win$)
  5.     WinVersion(Major,Minor,Build)
  6.     Set Caption$ = "Bar#1"
  7.     WinTitle(Win$,Caption$)
  8.     WinShow(Caption$,TOPMOST,Res)
  9.         
  10.     WinExist(Win$,Res)
  11.     If Res = 1 Then WinShow(Win$,UNHIDE,Res)
  12.  
  13. One_Instance:
  14.     WinTitle(Win$,Caption$)
  15.     WinShow(Caption$,TOPMOST,Res)
  16.     If Major = 3 Then WinLocate(Caption$,550,55,682,142,Res)
  17.     If Major = 4 Then WinLocate(Caption$,550,55,690,150,Res)
  18.     DrawBackGround
  19.     WaitInput(100)
  20.     InfoMenu(REMOVE)
  21.     SetMenu()
  22.     WinGetClientRect(Caption$,cx1,cy1,cx2,cy2)
  23.     If cy2 <> 66
  24.         y2 = 159
  25.         WinLocate(Caption$,550,55,690,y2,Res)
  26.     Endif    
  27.  
  28.     GoSub DrawButtons
  29.  
  30. Wait_for_Input:
  31.     WaitInput()
  32.  
  33. Min_NA:
  34.     WinShow(Caption$,SHOWMINNOACTIVE,Res)
  35.     Goto Wait_for_Input
  36.     
  37.  
  38. Close:
  39.     End
  40.  
  41.  
  42.  
  43. CBtn_1:
  44.     SetCtrlMouse()
  45.     SetMouse() SetRightMouse()
  46.     WinGetLocation(Caption$,X1,Y1,X2,Y2,Res)
  47.     Status_X1 = 5 
  48.     Status_Y1 = 67    Y3 = Y2 + 16
  49.     Rect_X1 = 2  Rect_Y1 = 67
  50.     Rect_X2 = 129  Rect_Y2 = 81
  51.     WaitInput(100)
  52.     WinLocate(Caption$,X1,Y1,X2,Y3,Res)
  53.     UseFont("Arial",5,13,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  54.     UseBrush(SOLID,192,192,192)
  55.     UsePen(SOLID,1,0,0,0)
  56.     DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
  57.     DrawText(Status_X1, Status_Y1,"Show Demo Help")
  58.     UseBrush(SOLID,192,192,129)
  59.  
  60.     WaitInput(1800)
  61.     WinLocate(Caption$,X1,Y1,X2,Y2,Res)
  62.     UsePen(SOLID,1,192,192,192)
  63.     UseBrush(SOLID,192,192,192)
  64.     DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
  65.     UsePen(SOLID,1,0,0,0)
  66.     GoSub Mouse_Setup
  67.     Goto Wait_for_Input
  68.  
  69. CBtn_7:
  70.     SetCtrlMouse() SetMouse() SetRightMouse()
  71.     WinGetLocation(Caption$,X1,Y1,X2,Y2,Res)
  72.     Status_X1 = 5 
  73.     Status_Y1 = 67    Y3 = Y2 + 32
  74.     Rect_X1 = 2  Rect_Y1 = 67
  75.     Rect_X2 = 129  Rect_Y2 = 97
  76.     WaitInput(100)
  77.     WinLocate(Caption$,X1,Y1,X2,Y3,Res)
  78.     UseFont("Arial",7,13,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  79.     UseBrush(SOLID,192,192,192)
  80.     UsePen(SOLID,1,0,0,0)
  81.     DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
  82.     DrawText(Status_X1, Status_Y1,"L:multi select")
  83.     Status_Y1 = 80
  84.     DrawText(Status_X1, Status_Y1,"R:single select")
  85.     UseBrush(SOLID,192,192,129)
  86.  
  87.     WaitInput(3000)
  88.     WinLocate(Caption$,X1,Y1,X2,Y2,Res)
  89.     UsePen(SOLID,1,192,192,192)
  90.     UseBrush(SOLID,192,192,192)
  91.     DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
  92.     UsePen(SOLID,1,0,0,0)
  93.     GoSub Mouse_Setup
  94.     Goto Wait_for_Input
  95.  
  96.  
  97. CBtn_2:
  98. CBtn_3:
  99. CBtn_4:
  100. CBtn_5:
  101. CBtn_6:
  102. CBtn_8:
  103.     SetCtrlMouse()  SetMouse()   SetRightMouse() 
  104.     WinGetLocation(Caption$,X1,Y1,X2,Y2,Res)
  105.     Status_X1 = 5 
  106.     Status_Y1 = 67    Y3 = Y2 + 16
  107.     Rect_X1 = 2  Rect_Y1 = 67
  108.     Rect_X2 = 129  Rect_Y2 = 81
  109.     WinLocate(Caption$,X1,Y1,X2,Y3,Res)
  110.     UseFont("Arial",7,13,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  111.     UseBrush(SOLID,192,192,192)
  112.     UsePen(SOLID,1,0,0,0)
  113.     DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
  114.     DrawText(Status_X1, Status_Y1,"button info")
  115.     UseBrush(SOLID,192,192,192)
  116.  
  117.     WaitInput(2500)
  118.     WinLocate(Caption$,X1,Y1,X2,Y2,Res)
  119.     UsePen(SOLID,1,192,192,192)
  120.     UseBrush(SOLID,192,192,192)
  121.     DrawRectangle(Rect_X1,Rect_Y1,Rect_X2,Rect_Y2)
  122.     UsePen(SOLID,1,0,0,0)
  123.     GoSub Status_Mouse
  124.     Goto Wait_for_Input
  125.     
  126.  
  127.  
  128.  
  129. Btn_1:
  130.     GoSub Button_1_Neg WaitInput(150)  
  131.     UseBrush(SOLID,192,192,192)
  132.     DrawRectangle( 1, 1,32,32)
  133.     GoSub Button_1_Text 
  134.     GoSub Button_1_Help  
  135.     Goto Wait_for_Input
  136. Btn_2:
  137.     UseBrush(SOLID,0,224,0)
  138.     DrawRectangle(33, 1, 65,32)  WaitInput(150)
  139.     UseBrush(SOLID,192,192,192)
  140.     DrawRectangle(33, 1, 65,32)
  141.     Goto Wait_for_Input
  142. Btn_3:
  143.     UseBrush(SOLID,0,224,0)
  144.     DrawRectangle(66,1, 97,32)  WaitInput(150)
  145.     UseBrush(SOLID,192,192,192)
  146.     DrawRectangle(66,1, 97,32)
  147.     Goto Wait_for_Input
  148. Btn_4:
  149.     UseBrush(SOLID,0,224,0)
  150.     DrawRectangle(98, 1,129,32)  WaitInput(150)
  151.     UseBrush(SOLID,192,192,192)
  152.     DrawRectangle(98, 1,129,32)
  153.     Goto Wait_for_Input
  154. Btn_5:
  155.     UseBrush(SOLID,0,224,0)
  156.     DrawRectangle(1,33, 32,65)  WaitInput(150)
  157.     UseBrush(SOLID,192,192,192)
  158.     DrawRectangle(1,33, 32,65)
  159.     Goto Wait_for_Input
  160. Btn_6:
  161.     UseBrush(SOLID,0,224,0)
  162.     DrawRectangle(33,33, 65,65)  WaitInput(150)
  163.     UseBrush(SOLID,192,192,192)
  164.     DrawRectangle(33,33, 65,65)
  165.     Goto Wait_for_Input
  166. Btn_7:
  167.     GoSub Button_7_Neg WaitInput(150)
  168.     UseBrush(SOLID,192,192,192)
  169.     DrawRectangle(66,33, 97,65)
  170.     GoSub Button_7_Text 
  171.     FileGet("BMP Files(*.bmp),*.bmp","","",
  172.     "Left Mouse Option: Select multiple files",CHANGEDIRMULTI,Chosen$)
  173.     If Chosen$ = "" Then Goto Wait_for_Input
  174.     ListBox("Files Selected for later processing", Chosen$," ",Res$)
  175.     Goto Wait_for_Input
  176.  
  177. Btn_8:
  178.     UseBrush(SOLID,0,224,0)
  179.     DrawRectangle(98,33,129,65)  WaitInput(150)
  180.     UseBrush(SOLID,192,192,192)
  181.     DrawRectangle(98,33,129,65)
  182.     GoSub Button_8_Text 
  183.     MessageBox(OK,1,EXCLAMATION,
  184. "This window was started by clicking the left mouse on the 
  185. programmed Multi-Help button. You could start another 
  186. application, or invoke Winhelp at a 'Contents' page.",
  187.     "Multiple Function Help buttons",Res)
  188.     Goto Wait_for_Input
  189.  
  190. RBtn_1:
  191.     GoSub Button_1_Neg WaitInput(150)  
  192.     UseBrush(SOLID,192,192,192)
  193.     DrawRectangle( 1, 1,32,32)
  194.     GoSub Button_1_Text 
  195.     GoSub Button_1_Help  
  196.     Goto Wait_for_Input
  197. RBtn_2:
  198.     UseBrush(SOLID,255,255,0)
  199.     DrawRectangle(33, 1, 65,32)  WaitInput(150)
  200.     UseBrush(SOLID,192,192,192)
  201.     DrawRectangle(33, 1, 65,32)
  202.     Goto Wait_for_Input
  203. RBtn_3:
  204.     UseBrush(SOLID,255,255,0)
  205.     DrawRectangle(66,1, 97,32)  WaitInput(150)
  206.     UseBrush(SOLID,192,192,192)
  207.     DrawRectangle(66,1, 97,32)
  208.     Goto Wait_for_Input
  209. RBtn_4:
  210.     UseBrush(SOLID,255,255,0)
  211.     DrawRectangle(98, 1,129,32)  WaitInput(150)
  212.     UseBrush(SOLID,192,192,192)
  213.     DrawRectangle(98, 1,129,32)
  214.     Goto Wait_for_Input
  215. RBtn_5:
  216.     UseBrush(SOLID,255,255,0)
  217.     DrawRectangle(1,33, 32,65)  WaitInput(150)
  218.     UseBrush(SOLID,192,192,192)
  219.     DrawRectangle(1,33, 32,65)
  220.     Goto Wait_for_Input
  221. RBtn_6:
  222.     UseBrush(SOLID,255,255,0)
  223.     DrawRectangle(33,33, 65,65)  WaitInput(150)
  224.     UseBrush(SOLID,192,192,192)
  225.     DrawRectangle(33,33, 65,65)
  226.     Goto Wait_for_Input
  227. RBtn_7:
  228.     GoSub Button_7_Neg WaitInput(150)
  229.     UseBrush(SOLID,192,192,192)
  230.     DrawRectangle(66,33, 97,65)
  231.     Chosen$ = ""
  232.     GoSub Button_7_Text 
  233.     FileGet("BMP Files(*.bmp),*.bmp","","",
  234.     "Right Mouse Option: Select One file",CHANGEDIR,Chosen$)
  235.     If Chosen$ = "" Then Goto Wait_for_Input
  236.     ListBox("File Selected for later processing", Chosen$," ",Res$)
  237.     Goto Wait_for_Input
  238. RBtn_8:
  239.     UseBrush(SOLID,255,255,0)
  240.     DrawRectangle(98,33,129,65)  WaitInput(150)
  241.     UseBrush(SOLID,192,192,192)
  242.     DrawRectangle(98,33,129,65)
  243.     GoSub Button_8_Text 
  244.     MessageBox(OK,1,EXCLAMATION,
  245. "This window was started by clicking the right mouse on 
  246. the programmed Multi-Help button. You could start WinHelp
  247. and jump to a specific topic i.e. context sensitive help.",
  248.     "Multiple Function Help buttons",Res)
  249.     Goto Wait_for_Input
  250.  
  251.  
  252. DrawButtons: {Subroutine}
  253.     UsePen(SOLID,1,0,0,0)
  254.     UseBrush(SOLID,192,192,192)
  255.     DrawRectangle( 1, 1,32,32) DrawRectangle(33, 1, 65,32) 
  256.     DrawRectangle(66,1, 97,32) DrawRectangle(98, 1,129,32)
  257.  
  258.     DrawRectangle(1,33, 32,65) DrawRectangle(33,33, 65,65) 
  259.     DrawRectangle(66,33, 97,65) DrawRectangle(98,33,129,65)
  260.     
  261.     GoSub Button_1_Text 
  262.     GoSub Button_7_Text 
  263.     GoSub Button_8_Text 
  264.     GoSub Mouse_Setup
  265.     Return
  266.     
  267. Mouse_Setup:
  268.     SetMouse(1, 1, 32,32,Btn_1,X,Y, 
  269.         33, 1, 65,32,Btn_2,X,Y,
  270.         66,1, 97,32,Btn_3,X,Y,
  271.         98, 1,129,32,Btn_4,X,Y,
  272.          1,33, 32,65,Btn_5,X,Y,
  273.         33,33, 65,65,Btn_6,X,Y,
  274.         66,33, 97,65,Btn_7,X,Y,
  275.         98,33,129,65,Btn_8,X,Y)
  276.  
  277.     SetRightMouse(1, 1, 32,32,RBtn_1,X,Y, 
  278.         33, 1, 65,32,RBtn_2,X,Y,
  279.         66,1, 97,32,RBtn_3,X,Y,
  280.         98, 1,129,32,RBtn_4,X,Y,
  281.          1,33, 32,65,RBtn_5,X,Y,
  282.         33,33, 65,65,RBtn_6,X,Y,
  283.         66,33, 97,65,RBtn_7,X,Y,
  284.         98,33,129,65,RBtn_8,X,Y)
  285.     GoSub Status_Mouse
  286.     Return
  287.  
  288. Status_Mouse:        
  289.     SetCtrlMouse(1, 1, 32,32,CBtn_1,X,Y, 
  290.         33, 1, 65,32,CBtn_2,X,Y,
  291.         66,1, 97,32,CBtn_3,X,Y,
  292.         98, 1,129,32,CBtn_4,X,Y,
  293.          1,33, 32,65,CBtn_5,X,Y,
  294.         33,33, 65,65,CBtn_6,X,Y,
  295.         66,33, 97,65,CBtn_7,X,Y,
  296.         98,33,129,65,CBtn_8,X,Y)
  297.     Return
  298.  
  299. Button_1_Text:
  300.     UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  301.     DrawText(4,2,"Dmo")  DrawText(4,15,"Help")
  302.     UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,255,255,0)
  303.     DrawText(3,1,"Dmo")  DrawText(3,14,"Help")
  304.     Return
  305. Button_1_Neg:
  306.     UsePen(SOLID,1,0,0,0)
  307.     UseBrush(SOLID,128,128,128)
  308.     DrawRectangle( 1, 1,32,32)
  309.     Return
  310.  
  311. Button_1_Help:
  312.     MessageBox(OK,1,INFORMATION,
  313. "This demonstration toolbar shows left, ctrl-left and right
  314. mouse actions. To see what a button does without starting
  315. the action, click ctrl-left mouse.",
  316.     "How to use this toolbar",Res)
  317.     Goto Wait_for_Input
  318.  
  319. Button_7_Text:
  320.     UsePen(NULL,1,0,0,0)
  321.     UseBrush(SOLID,0,0,255) DrawRectangle(75,43,94,62)
  322.     UseBrush(SOLID,0,255,0) DrawRectangle(73,40,91,58)
  323.     UseBrush(SOLID,255,0,0) DrawRectangle(69,37,87,55)
  324.     UsePen(SOLID,1,0,0,0)
  325.     Return
  326. Button_7_Neg:
  327.     UsePen(SOLID,1,0,0,0)
  328.     UseBrush(SOLID,128,128,128)
  329.     DrawRectangle(66,33, 97,65)
  330.     UsePen(NULL,1,0,0,0)
  331.     UseBrush(SOLID,0,0,128) DrawRectangle(75,43,94,62)
  332.     UseBrush(SOLID,0,128,0) DrawRectangle(73,40,91,58)
  333.     UseBrush(SOLID,128,0,0) DrawRectangle(69,37,87,55)
  334.     UsePen(SOLID,1,0,0,0)
  335.     Return
  336.  
  337.  
  338. Button_8_Text: {in button #8}
  339.     UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
  340.     DrawText(101,34,"Multi")  DrawText(101,47,"Help")
  341.     UseFont("Arial",5,15,NOBOLD,NOITALIC,NOUNDERLINE,255,255,0)
  342.     DrawText(100,33,"Multi")  DrawText(100,46,"Help")
  343.  
  344.     Return